home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 007 / boosters.arc / TIMEXY.PAS < prev    next >
Pascal/Delphi Source File  |  1985-11-03  |  703b  |  31 lines
  1. { --------------------------
  2.   Display TIME of day at X,Y
  3.   -------------------------- }
  4. Procedure TimeXY (X : ColumnType;
  5.                   Y : RowType ) ;
  6. var
  7.    hour     : integer;
  8.    hr,
  9.    min, sec : string[2];
  10.  
  11. begin
  12.    with regs do
  13.    begin
  14.       ax := $2C00;
  15.       intr($21,regs);
  16.       hour := hi(cx);
  17.       if hour < 1 then
  18.          hour := 12
  19.       else
  20.       if hour > 12 then
  21.          hour := hour - 12;
  22.       str ( hour, hr );
  23.       str ( lo(cx), min );
  24.       str ( hi(dx), sec );
  25.       if length(min) < 2 then
  26.          min := '0'+min;
  27.       if length(sec) < 2 then
  28.          sec := '0'+sec;
  29.       PutStr( h,hr+':'+min+':'+sec, x,y,14);
  30.    end
  31. end { TimeXY };